You're the Director/You're The Director.iso/pc/macf/mger.dir/00001.ls

Text File | 1995-10-10 | 15.8 KB | 661 lines

on startMovie
  global max, movielist, limit, splist, reset, letgo, gSound, prev, gCurrentSprite, CurrentAudio, fullscreenG, gRewind, gSpeed, LastButton
  set the preLoadEventAbort to 1
  initsel()
  openXLib("QT.X")
  set LastButton to 0
  set fullscreenG to 0
  set gRewind to 0
  set gSpeed to 1
  set CurrentAudio to 100
  set CurrentAudio to string(CurrentAudio)
  set magcursor to [the number of cast "Clapboard"]
  set the cursor of sprite 1 to magcursor
  set gCurrentSprite to 3
  set prev to 0
  set gSound to 6
  set prev to 0
  set letgo to 0
  set reset to 0
  set the visible of sprite 19 to 0
  set the textSize of field "movie" to 24
  set the textSize of field "name" to 24
  repeat with i = 21 to 45
    puppetSprite(i, 1)
  end repeat
  set the visible of sprite 45 to 0
  initsel()
  set splist to [[195, 211], [195, 294], [195, 377], [443, 211], [443, 294], [443, 377]]
  set limit to 24
  set movielist to []
  hidebar()
  set max to count(movielist)
  when keyDown then globalkey
  repeat with x = 46 to 48
    puppetSprite(x, 1)
    set the visible of sprite x to 0
    puppetSprite(x, 0)
  end repeat
  go("Options")
  updateStage()
end

on idle
  preLoadCast()
end

on testbut
  global movielist
  if count(movielist) <= 0 then
    repeat with i = 12 to 18
      set the visible of sprite i to 0
    end repeat
  else
    repeat with i = 12 to 18
      set the visible of sprite i to 1
    end repeat
  end if
end

on setdef
  repeat with i = 12 to 18
    set the visible of sprite i to 1
  end repeat
end

on addbar x
  global letgo, movielist
  if count(movielist) >= 24 then
    exit
  end if
  set letgo to 0
  set yu to string(item 1 of the name of cast the number of cast string(chars(the name of cast the castNum of sprite x, 1, 2) & "s"))
  reset()
  add(movielist, yu)
  set max to count(movielist)
  setbar()
end

on showbar
  global movielist, max, limit
  set the visible of sprite 2 to 1
  repeat with i = 21 to 20 + count(movielist)
    set the visible of sprite i to 1
  end repeat
  repeat with i = 20 + count(movielist) + 1 to 20 + limit
    set the visible of sprite i to 0
  end repeat
  updateStage()
end

on hidebar
  global movielist, max, limit
  if the frame > 18 then
    set the visible of sprite 2 to 0
  end if
  repeat with i = 21 to 20 + limit
    set the visible of sprite i to 0
  end repeat
  updateStage()
end

on setbar
  global movielist, max, selected, limit, fullscreenG
  if count(movielist) = 0 then
    repeat with i = 21 to 20 + limit
      set the visible of sprite i to 0
    end repeat
    exit
  end if
  repeat with i = 1 to count(movielist)
    set the castNum of sprite (20 + i) to the number of cast string(getAt(movielist, i))
  end repeat
  repeat with i = 1 to count(selected)
    if getAt(selected, i) = 1 then
      if fullscreenG = 0 then
        set the ink of sprite (20 + i) to 4
        puppetSprite(45, 1)
        set the moveableSprite of sprite 45 to 1
        set newsprite to 20 + i
        set the locH of sprite 45 to the locH of sprite newsprite
        set the locV of sprite 45 to the locV of sprite newsprite
        set the ink of sprite 45 to 36
        set the visible of sprite 45 to 1
        set the moveableSprite of sprite 45 to 0
        updateStage()
      end if
      next repeat
    end if
    set the ink of sprite (20 + i) to 0
    updateStage()
  end repeat
  if fullscreenG = 0 then
    showbar()
  end if
end

on namesmall
  set x1 to 100
  repeat with i = 1 to 36
    set yur to numToChar(charToNum("`") + (i / 6) + 1)
    set the name of cast (i + x1) to string(yur & i mod 6) & "s"
    if (i mod 6) = 0 then
      set the name of cast (i + x1) to string(numToChar(charToNum(yur) - 1) & "6") & "s"
    end if
  end repeat
end

on namemov
  set x1 to 136
  repeat with i = 1 to 36
    set yur to numToChar(charToNum("`") + (i / 6) + 1)
    set the name of cast (i + x1) to string(yur & i mod 6) & ".mov"
    if (i mod 6) = 0 then
      set the name of cast (i + x1) to string(numToChar(charToNum(yur) - 1) & "6") & ".mov"
    end if
  end repeat
end

on initsp
  global splist
  set splist to []
  set x to 3
  repeat with i = x to x + 5
    add(splist, [the locH of sprite i, the locV of sprite i])
  end repeat
end

on reset
  global splist, reset
  if the frame = 56 then
    exit
  end if
  set x to 13
  repeat with i = x to x + 5
    set yu to getAt(splist, i - x + 1)
    set the locH of sprite i to getAt(yu, 1)
    set the locV of sprite i to getAt(yu, 2)
    set the castNum of sprite i to the number of cast string(chars(the name of cast the castNum of sprite i, 1, 2))
    set the ink of sprite i to 0
    updateStage()
  end repeat
  updateStage()
end

on playmovn
  set yu to the clickOn
  puppetSprite(48, 1)
  set the castNum of sprite 48 to the number of cast string(chars(the name of cast the castNum of sprite yu, 1, 2) & ".MOV")
  set the visible of sprite 48 to 1
  set the movieTime of sprite 48 to 0
  set the movieRate of sprite 48 to 1
  set the controller of cast the castNum of sprite 48 to 0
  repeat while (the movieTime of sprite 48 < the duration of cast the castNum of sprite 48) and the controlDown
    updateStage()
  end repeat
  set the movieTime of sprite 48 to 0
  set the movieRate of sprite 48 to 0
  set the visible of sprite 48 to 0
end

on playmovn2
  set yu to the clickOn
  puppetSprite(48, 1)
  set yu to 0
  repeat with i = 1 to count(movielist)
    if getAt(selected, i) = 1 then
      set yu to i
    end if
    if yu <> 0 then
      exit repeat
    end if
  end repeat
  if yu = 0 then
    exit
  end if
  set yu to yu + 20
  set the castNum of sprite 48 to the number of cast string(chars(the name of cast the castNum of sprite yu, 1, 2) & ".MOV")
  set the visible of sprite 48 to 1
  set the controller of cast the castNum of sprite 48 to 1
  updateStage()
  set the movieTime of sprite 48 to 0
  set the movieRate of sprite 48 to 1
  updateStage()
  repeat while (the movieTime of sprite 48 < the duration of cast the castNum of sprite 48) and not (the controlDown)
    updateStage()
  end repeat
  set the movieTime of sprite 48 to 0
  set the movieRate of sprite 48 to 0
  set the visible of sprite 48 to 0
  updateStage()
  repeat with x = 13 to 18
    set the visible of sprite x to 1
  end repeat
  updateStage()
end

on playmovn3
  global prev
  if prev = 1 then
    set yu to the clickOn
    puppetSprite(48, 1)
    set yu to 0
    repeat with i = 1 to count(movielist)
      if getAt(selected, i) = 1 then
        set yu to i
        set the visible of sprite 19 to 1
        repeat with x = 13 to 18
          set the visible of sprite x to 0
        end repeat
        puppetSound(0)
        updateStage()
      end if
      if yu <> 0 then
        exit repeat
      end if
    end repeat
    if yu = 0 then
      set prev to 0
      exit
    end if
    set yu to yu + 20
    set the castNum of sprite 48 to the number of cast string(chars(the name of cast the castNum of sprite yu, 1, 2) & ".MOV")
    set the visible of sprite 48 to 1
    set the controller of cast the castNum of sprite 48 to 1
    updateStage()
    set the movieTime of sprite 48 to 0
    set the movieRate of sprite 48 to 1
    updateStage()
    set prev to 2
  end if
  if (the movieTime of sprite 48 < the duration of cast the castNum of sprite 48) and not (the controlDown) then
    updateStage()
  else
    set prev to 0
    set the movieTime of sprite 48 to 0
    set the movieRate of sprite 48 to 0
    set the visible of sprite 48 to 0
    updateStage()
    set the visible of sprite 19 to 0
    repeat with x = 13 to 18
      set the visible of sprite x to 1
    end repeat
    puppetSound("OPEN.AIF")
    updateStage()
  end if
end

on playmovn3Q
  global prev, Clips, Current
  if prev = 1 then
    set yu to the clickOn
    set yu to 0
    repeat with i = 1 to count(movielist)
      if getAt(selected, i) = 1 then
        set yu to i
        set the visible of sprite 19 to 1
        puppetSound(0)
        updateStage()
      end if
      if yu <> 0 then
        exit repeat
      end if
    end repeat
    if yu = 0 then
      set prev to 0
      exit
    end if
    set yu to yu + 20
    set Clips to the fileName of cast string(chars(the name of cast the castNum of sprite yu, 1, 2) & ".MOV")
    set prev to 2
    set Current to 0
    playQTF(Clips, "160,140", 0)
    updateStage()
  else
    set prev to 0
    updateStage()
    set the visible of sprite 19 to 0
    repeat with x = 13 to 18
      set the visible of sprite x to 1
    end repeat
    repeat with x = 3 to 7
      puppetSprite(x, 1)
      set the visible of sprite x to 1
      puppetSprite(x, 0)
    end repeat
    set MovieSeq to 0
    setbar()
    puppetSound("OPEN.AIF")
    updateStage()
  end if
end

on playmovn4Q yu
  global k, mm, Current, prev, Clips
  set yu to yu + 20
  set i to chars(the name of cast the castNum of sprite yu, 1, 3)
  set place to getOne(movielist, i)
  set k to place
  set mm to place
  set Clips to the fileName of cast string(chars(the name of cast the castNum of sprite yu, 1, 2) & ".MOV")
  set prev to 2
  set Current to 1
  playQTF(Clips, "160,140", 0)
end

on playmovn4 yu
  global k, mm
  set yu to yu + 20
  set i to chars(the name of cast the castNum of sprite yu, 1, 3)
  set place to getOne(movielist, i)
  set k to place
  set mm to place
  set the castNum of sprite 48 to the number of cast string(chars(the name of cast the castNum of sprite yu, 1, 2) & ".MOV")
  set the visible of sprite 48 to 1
  set the controller of cast the castNum of sprite 48 to 1
  updateStage()
  set the movieTime of sprite 48 to 0
  set the movieRate of sprite 48 to 1
  updateStage()
end

on initsel
  global selected
  set selected to [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
end

on delset
  global selected, movielist
  if count(movielist) <= 0 then
    exit
  end if
  set sel to countsel()
  if sel = 0 then
    exit
  end if
  set del to []
  repeat with i = 1 to count(movielist)
    if getAt(selected, i) = 1 then
      setAt(movielist, i, 0)
    end if
  end repeat
  put del
  set mv2 to []
  repeat with i in movielist
    if i <> 0 then
      add(mv2, i)
    end if
  end repeat
  set movielist to mv2
  set the visible of sprite 45 to 0
  updateStage()
  initsel()
  setbar()
end

on plusset
  global selected, movielist
  if count(movielist) <= 0 then
    exit
  end if
  set sel to countsel()
  if (sel = count(movielist)) or (sel = 0) then
    exit
  end if
  initsel()
  setAt(selected, sel, 1)
  repeat with i = count(movielist) - 1 down to 1
    if getAt(selected, i) = 1 then
      set yut to getAt(movielist, i)
      setAt(movielist, i, getAt(movielist, i + 1))
      setAt(movielist, i + 1, yut)
      deleteAt(selected, count(selected))
      addAt(selected, 1, 0)
      exit repeat
    end if
  end repeat
  setbar()
end

on minset
  global selected, movielist
  if count(movielist) <= 0 then
    exit
  end if
  if getAt(selected, 1) = 1 then
    exit
  end if
  set sel to countsel()
  if sel = 0 then
    exit
  end if
  initsel()
  setAt(selected, sel, 1)
  repeat with i = 1 to count(movielist)
    if getAt(selected, i) = 1 then
      set yut to getAt(movielist, i)
      deleteAt(movielist, i)
      add(movielist, i - 1, yut)
      deleteAt(selected, 1)
      add(selected, 0)
      exit repeat
    end if
  end repeat
  setbar()
end

on countsel
  repeat with i = 1 to count(selected)
    if getAt(selected, i) = 1 then
      return i
      exit
    end if
  end repeat
  return 0
end

on clearall
  global movielist
  set movielist to []
  set the visible of sprite 45 to 0
  initsel()
  setbar()
end

on globalkey
  if the key = BACKSPACE then
    delset()
  end if
  if the key = "+" then
    plusset()
  end if
  if the key = "-" then
    minset()
  end if
end

on compilemov
  global movielist, comp, k, mm
  if k = 0 then
    puppetSprite(48, 1)
    set k to 0
    set mm to 1
  end if
  if k <> mm then
    set k to mm
    if k <= count(movielist) then
      set i to getAt(movielist, k)
      initsel()
      setAt(selected, k, 1)
      setbar()
      set j to chars(i, 1, 2)
      set the castNum of sprite 48 to the number of cast (j & ".mov")
      set the directToStage of cast the castNum of sprite 48 to 1
      set the visible of sprite 48 to 1
      set the controller of cast the castNum of sprite 48 to 1
      updateStage()
      set the movieTime of sprite 48 to 0
      set the movieRate of sprite 48 to 1
      updateStage()
    else
      set the visible of sprite 48 to 0
      puppetSprite(48, 0)
      set comp to 0
      set k to 0
      go("EndMovie")
    end if
  end if
  if the movieTime of sprite 48 < the duration of cast the castNum of sprite 48 then
    updateStage()
  else
    set the movieRate of sprite 48 to 0
    set mm to mm + 1
  end if
end

on compilemovQ
  global movielist, comp, k, mm, prev, Clips, Current, fullscreenG, gSpeed, MovieSeq
  set numb to count(movielist)
  if k = 0 then
    set k to 0
    set mm to 1
  end if
  if k <> mm then
    set k to mm
    if k <= count(movielist) then
      set i to getAt(movielist, k)
      initsel()
      setAt(selected, k, 1)
      if fullscreenG = 0 then
        setbar()
      end if
      set j to chars(i, 1, 2)
      set prev to 2
      set Clips to the fileName of cast (j & ".mov")
      set Current to 1
      set MovieSeq to 1
      if fullscreenG = 0 then
        playQTF(Clips, "160,140", 0)
      else
        playQTF(Clips, "0,0", 1)
      end if
      set mm to mm + 1
      updateStage()
    else
      set comp to 0
      set k to 0
      if fullscreenG = 1 then
        setbarB()
        puppetSprite(48, 1)
        set the visible of sprite 48 to 0
        puppetSprite(48, 0)
        ChangeScreenSize(Clips, "160,140", 1)
      end if
      stopQT()
      go("EndMovie")
    end if
  end if
end

on quitmov
  global comp, k, m
  set comp to 0
  set k to 0
end

on RunOff
  global gCurrentSprite
  set the editableText of sprite gCurrentSprite to 0
  if gCurrentSprite = 3 then
    set gCurrentSprite to 4
    updateStage()
  else
    set gCurrentSprite to 3
    testbut()
    setdef()
    go("no")
    showbar()
  end if
end

on stopMovie
  closeXLib()
end

on beginMyMovie
  global myWindow
  if objectp(myWindow) then
    forget(myWindow)
  end if
  set horzOrigin to the stageLeft
  set vertOrigin to the stageTop
  set myWindowRect to rect(horzOrigin, vertOrigin, horzOrigin + 640, vertOrigin + 480)
  set myWindow to window "HelpMovie"
  set the fileName of myWindow to "HELP.DIR"
  set the titleVisible of myWindow to 0
  open(myWindow)
  tell window "HelpMovie"
    go("Gstart")
  end tell
end

on finishMovie
  global myWindow
  if objectp(myWindow) then
    forget(myWindow)
  end if
end

on MovieOver
  global myWindow
  set myWindow to window "HelpMovie"
  set the fileName of myWindow to "HELP.DIR"
  close(myWindow)
  forget(myWindow)
end

on showbarB
  global movielist, max, limit
  set the visible of sprite 2 to 1
  repeat with i = 21 to 20 + count(movielist)
    set the visible of sprite i to 1
  end repeat
  repeat with i = 20 + count(movielist) + 1 to 20 + limit
    set the visible of sprite i to 0
  end repeat
end

on setbarB
  global movielist, max, selected, limit, Double
  put "inside setbar"
  if count(movielist) = 0 then
    repeat with i = 21 to 20 + limit
      set the visible of sprite i to 0
    end repeat
    exit
  end if
  repeat with i = 1 to count(movielist)
    set the castNum of sprite (20 + i) to the number of cast string(getAt(movielist, i))
  end repeat
  repeat with i = 1 to count(selected)
    if getAt(selected, i) = 1 then
      if Double = 0 then
        set the ink of sprite (20 + i) to 4
        put "above puppetSprite 45 is true"
        puppetSprite(45, 1)
        set the moveableSprite of sprite 45 to 1
        set newsprite to 20 + i
        set the locH of sprite 45 to the locH of sprite newsprite
        set the locV of sprite 45 to the locV of sprite newsprite
        set the visible of sprite 45 to 1
        set the moveableSprite of sprite 45 to 0
      end if
      next repeat
    end if
    set the ink of sprite (20 + i) to 0
  end repeat
  if Double = 0 then
    showbarB()
  end if
end